Fortran 通过赋值语句分配数组

• 如果数组没有分配，赋值之后会自动分配；
• 如果数组已经分配但不一致，将重新分配。

real, dimension(:), allocatable :: a1
a1 = 2 * a3